home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / dissolvrotate.xdve < prev    next >
Text File  |  1995-06-21  |  2KB  |  75 lines
  1. /* Rotazione di 360 gradi con dissolvenza tra due immagini in 50 FRAMES */
  2.  
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5.  
  6. TRUE  = 1
  7. FALSE = 0
  8. TmpIma = 'T:immagine'
  9. TmpIma2 = 'T:immagine2'
  10. Provvisorio = 'T:Provvisorio'
  11. DISSOLVE = 98
  12. DISSOLVE2 = 2
  13. NUMEROFRAME = 0       
  14.  
  15. GETFILES '"Seleziona la PRIMA immagine"'
  16.  IF RC ~= 0 THEN EXIT
  17.   PRIMA = ADPRO_RESULT
  18.    IF PRIMA = "" THEN EXIT
  19.      LOADER "UNIVERSAL" PRIMA
  20.     XSIZE
  21.      BASE = ADPRO_RESULT
  22.     YSIZE
  23.      ALTZ = ADPRO_RESULT
  24. SAVER "IFF" TmpIma "RAW"
  25.  
  26. CENTROX = ((BASE / 2) + 0.5)
  27.    CX = TRUNC(CENTROX)
  28. CENTROY = ((ALTZ / 2) + 0.5)
  29.    CY = TRUNC(CENTROY)
  30.    AM1 = 5
  31.    AM2 = 10
  32.    
  33. GETFILES '"Seleziona la SECONDA immagine"'
  34.  IF RC ~= 0 THEN EXIT
  35.   SECONDA = ADPRO_RESULT
  36.    IF SECONDA = "" THEN EXIT
  37.      LOADER "UNIVERSAL" SECONDA
  38.     XSIZE
  39.      BASE2 = ADPRO_RESULT
  40.     YSIZE
  41.      ALTZ2 = ADPRO_RESULT
  42. IF (BASE2 > BASE) | (ALTZ2 > ALTZ) THEN DO
  43.                           ABS_SCALE (BASE) (ALTZ)
  44.                           END
  45. IF (BASE2 < BASE) | (ALTZ2 < ALTZ) THEN DO
  46.                           ABS_SCALE (BASE) (ALTZ)
  47.                           END
  48.      SAVER "IFF" TmpIma2 "RAW"
  49.      
  50. GETfile '"Path e nomebase 50 frames elaborati"'
  51. IF RC ~= 0 THEN EXIT
  52. OUTFILE = ADPRO_RESULT
  53. if OUTFILE = "" then exit  
  54.   
  55.    DO i=1 to 50
  56.  LOADER "IFF" TmpIma
  57. OPERATOR Rotate CENTER (CX) (CY) RADIUS (ALTZ) AMOUNT (AM1) BLUR_RADIUS 0 QUALITY_HIGH
  58.   SAVER "IFF" Provvisorio "RAW"
  59.  LOADER "IFF" TmpIma2
  60. OPERATOR Rotate CENTER (CX) (CY) RADIUS (ALTZ) AMOUNT (AM2) BLUR_RADIUS 0 QUALITY_HIGH
  61.  AM1 = (AM1 + 7)
  62.  AM2 = (AM2 + 7)
  63. LOADER "IFF" Provvisorio COMPOFFSET 0 0 (DISSOLVE)
  64.  DISSOLVE = (DISSOLVE - DISSOLVE2)
  65.   NUMEROFRAME = (NUMEROFRAME + 1)
  66. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  67.   SAVER "IFF" (OUTFILE)||'.'||(NUMERO) "RAW"
  68.  SAY "Salvo il frame Num." NUMERO
  69. END
  70.  
  71. ADDRESS COMMAND "Delete >NIL:" TmpIma
  72. ADDRESS COMMAND "Delete >NIL:" TmpIma2
  73. ADDRESS COMMAND "Delete >NIL:" Provvisorio
  74.  EXIT
  75.